home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / tempered fun (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  10.0 KB  |  325 lines
  1. 5 gosub60100:clr:restore
  2. 6 rem arrays for temperaments
  3. 10 dim eh(46),ph(46),jh(46),mh(46)
  4. 20 dim el(46),pl(46),jl(46),ml(46)
  5. 25 rem array for scales
  6. 30 dim hm(20),lm(20)
  7. 32 rem array for real time
  8. 35 dim as(8)
  9. 36 gosub 6000:restore:rem read ascii values for real time
  10. 40 poke53272,23:poke53280,7
  11. 45 rem menu 1
  12. 50 print"[147]":printtab(6);"[208][204][197][193][211][197] [215][193][201][212] . . . [211][197][212][212][201][206][199] [213][208]"
  13. 60 print"":printtab(12);"([193]bout 14 secs.)
  14. 70 [141]5000:[143] set up arrays
  15. 80 [151]648,4:[151]53281,0:[153]"cont";
  16. 82 [153]"load":[153][163]14);"(NULL)val(NULL)(NULL)val(NULL)valstr$ asc(NULL)(NULL)
  17. 85 printtab(14);"[163][163][163][163][163][163][163][163][163][163][163][163]"
  18. 90 printtab(17);"[205][197][206][213] 1":print
  19. 100 print"[201]. [212]emperaments
  20. 110 [153][163]3);"1.wait valqual"
  21. 120 [153][163]3);"2.wait (NULL)ythagorean"
  22. 130 [153][163]3);"3.wait mid$ust"
  23. 140 [153][163]3);"4.wait (NULL)ean"
  24. 150 [153][163]3);"5.wait (NULL)our own equal temperament"
  25. 155 [153]
  26. 160 [153]"right$right$. (NULL)cales"
  27. 170 [153][163]3);"1.wait (NULL)ajor"
  28. 180 [153][163]3);"2.wait (NULL)inor"
  29. 190 [153][163]3);"3.wait str$orian"
  30. 200 [153][163]3);"4.wait (NULL)hrygian"
  31. 210 [153][163]3);"5.wait (NULL)ydian"
  32. 220 [153][163]3);"6.wait (NULL)ixolydian"
  33. 230 [153][163]3);"7.wait atneolian"
  34. 240 [153][163]3);"8.wait (NULL)ocrian"
  35. 250 [153][163]3);"9.wait lenhromatic (b or #)
  36. 260 print"[150][197]nter number or [209] to quit. [154]";
  37. 270 poke198,0:poke204,0:poke207,0:wait198,1:poke204,1:getk$
  38. 271 ifk$="q"ork$="[209]"then60000
  39. 272 tu=val(k$):iftu=0then260
  40. 273 iftu=1ortu=2ortu=3ortu=4thenprintk$;:de=.5:gosub7000:goto280
  41. 274 iftu=5thenprintk$;:de=.5:gosub7000:goto1300
  42. 275 goto260
  43. 280 print"                                           ";
  44. 281 print"[150][197]nter number of desired scale. [154]";
  45. 282 poke198,0:poke204,0:poke207,0:wait198,1:poke204,1:getk$
  46. 283 mo=val(k$):ifmo=0then281
  47. 284 ifmo=1ormo=2ormo=3ormo=4ormo=5ormo=6ormo=7ormo=8thenprintk$;:de=.5:gosub7000:goto300
  48. 285 ifmo=9thenprintk$;:de=.5:gosub7000:goto287
  49. 286 rem chromatic scale
  50. 287 print"[147][212]his function will allow you to hear a  chromatic octave scale only
  51. 288 [153]"str$o you wish a chromatic scale on sharps or flats? (s/f) ";
  52. 289 [151]198,0:[151]204,0:[151]207,0:[146]198,1:[151]204,1:[161]k$:[139]k$[179][177]"s"[175]k$[179][177]"f"[167]289
  53. 290 [139]k$[178]"s"[167][153]k$:de[178].5:[141]7000:mo[178]9:ap[178]1:[137]400
  54. 291 [139]k$[178]"f"[167][153]k$:de[178].5:[141]7000:mo[178]10:ap[178]1:[137]400
  55. 299 [143] menu 1
  56. 300 [153]"load":[153][163]14);"(NULL)val(NULL)(NULL)val(NULL)valstr$ asc(NULL)(NULL)
  57. 305 printtab(14);"[163][163][163][163][163][163][163][163][163][163][163][163]"
  58. 310 printtab(17);"[205][197][206][213] 2":print
  59. 320 print"[201][201][201]. [193]pplications"
  60. 330 printtab(3);"1.[146] [207]ctave scale"
  61. 340 printtab(3);"2.[146] [210]oot chord"
  62. 350 printtab(3);"3.[146] [210]eal-time melody"
  63. 360 printtab(3);"4.[146] [212]winkle [204]ittle [211]tar (melody)
  64. 370 [153][163]3);"5.wait (NULL)winkle (NULL)ittle (NULL)tar (harmonized)"
  65. 380 [153]"defvalnter number of desired application. cont";
  66. 381 [151]198,0:[151]204,0:[151]207,0:[146]198,1:[151]204,1:[161]k$
  67. 382 ap[178][197](k$):[139]ap[178]0[167]380
  68. 383 [139]ap[178]1[176]ap[178]2[176]ap[178]3[176]ap[178]4[176]ap[178]5[167][153]k$;:de[178].5:[141]7000:[137]400
  69. 384 [137]380
  70. 399 [143] primary pivot point
  71. 400 [145]mo[141]5330,5350,5370,5390,5410,5430,5450,5470,5490,5510
  72. 405 [145]ap[137]500,600,700,900,1100
  73. 499 [143] octave scale
  74. 500 [153]"loadleft$val(NULL)valcloseright$(NULL)close(NULL)(NULL)(NULL)(NULL)close(NULL)len(NULL)atn(NULL)valclose(NULL)lenatn(NULL)val !":[153]"((NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to end early.)"
  75. 501 [141]2000
  76. 502 [143] play octave
  77. 504 [139]no[178]13[167]510
  78. 506 [129]i[178]8[164]15:[137]512
  79. 510 [129]i[178]8[164]20
  80. 512 [151]si,lm(i):[151]si[170]1,hm(i):[143] pitches
  81. 514 [151]si[170]4,17:[143] waveform gate #1 on
  82. 516 de[178]1:[141]7000:[143] duration
  83. 518 [151]si[170]4,16:[143] gate #1 off
  84. 519 [161]k$:[139]k$[178]" "[167]570
  85. 520 [130]
  86. 570 [141]8000:[153]:[153]:[153]"str$o you wish to hear it again? (y/n) ";
  87. 580 [141]3900
  88. 582 [139]k$[178]"n"[167][153]k$:de[178].5:[141]7000:[137]80
  89. 584 [153]k$:de[178].5:[141]7000:[137]500
  90. 599 [143] root chords
  91. 600 [153]"load":[153]"left$val(NULL)valcloseright$(NULL)close(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)closelenleft$(NULL)(NULL)str$close!"
  92. 602 [141]2000
  93. 610 [151]si,lm(8):[151]si[170]1,hm(8)
  94. 612 [151]si[170]7,lm(10):[151]si[170]8,hm(10)
  95. 614 [151]si[170]14,lm(12):[151]si[170]15,hm(12)
  96. 616 [151]si[170]4,17:[151]si[170]11,17:[151]si[170]18,17
  97. 620 [153]:[153]"(NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to continue.";
  98. 622 [161]k$:[139]k$[179][177]" "[167]622
  99. 660 [141]8000
  100. 670 [153]:[153]:[153]:[153]"str$o you wish to hear it again? (y/n) ";
  101. 680 [141]3900
  102. 682 [139]k$[178]"n"[167][153]k$:de[178].5:[141]7000:[141]8000:[137]80
  103. 684 [153]k$:de[178].5:[141]7000:[137]600
  104. 699 [143] real time play
  105. 700 [153]"load(NULL)(NULL)atn(NULL) atn (NULL)(NULL)(NULL)val !"
  106. 701 [153]"((NULL)ress the number keys on the keyboard  for the indicated solfege degree.)
  107. 710 forx=0to4:print"";:next
  108. 711 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  109. 712 [153]"getstr$(NULL)sgn(NULL)valsgn(NULL)right$sgnascatnsgn(NULL)(NULL)sgn(NULL)atnsgn(NULL)right$sgnstr$(NULL)get
  110. 713 print"[161] 1[180] 2[180] 3[180] 4[180] 5[180] 6[180] 7[180] 8[161]
  111. 714 [153]"(NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to end this section."
  112. 760 [141]2000
  113. 770 [161]k$:[139]k$[178]""[167]770
  114. 780 k[178][198](k$)
  115. 790 [139]k[178]32[167][141]8000:[137]80
  116. 800 i[178]0
  117. 805 [139]k[178]as(i)[167][151]si,1:[151]si[170]1,1
  118. 810 [151]si[170]4,16:[139]k[178]as(i)[167][151]si,lm(i[170]8):[151]si[170]1,hm(i[170]8):[151]si[170]4,17:[137]770
  119. 820 i[178]i[170]1
  120. 830 [139]i[179][178]8[167]805
  121. 840 [137]770
  122. 899 [143] twinkle star melody
  123. 900 [153]"load(NULL)left$right$(NULL) right$(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL)val (NULL)(NULL)atn(NULL) (NULL)val(NULL)(NULL)str$(NULL) !"
  124. 905 [153]"((NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to end early.)"
  125. 910 [141] 2000
  126. 920 rl[178]1000:[141]11000
  127. 924 [129]i[178]1[164]172
  128. 925 [139]d[178][171]1[167]960
  129. 926 [151]si[170]4,16:[141]1200:[141]1220
  130. 927 [161]k$:[139]k$[178]" "[167]960
  131. 928 [130]
  132. 960 [141] 2000
  133. 970 [153]:[153]"str$o you wish to hear it again? (y/n) ";
  134. 980 [141]3900
  135. 982 [139]k$[178]"n"[167][153]k$:de[178].5:[141]7000:d[178]0:[141]8000:[137]80
  136. 984 [153]k$:de[178].5:[141]7000:d[178]0:[137]900
  137. 999 [143] twinkle star data
  138. 1000 [131] 1,8,8,1,1,8,8,1,1,12,8,3,1,12,8,3,1,13,8,4,1,13,8,4,2,12,8,3
  139. 1010 [131] 1,11,8,2,1,11,7,5,1,10,9,6,1,10,8,6,1,9,8,4,1,9,7,5,2,8,3,1
  140. 1020 [131] 1,12,8,3,1,12,8,3,1,11,8,2,1,11,7,2,1,10,8,1,1,10,8,3,2,9,7,5
  141. 1030 [131] 1,12,8,3,1,12,8,3,1,11,8,2,1,11,7,2,1,10,8,1,1,10,8,3,2,9,7,5
  142. 1040 [131] 1,8,8,1,1,8,8,1,1,12,8,3,1,12,8,3,1,13,8,4,1,13,8,4,2,12,8,3
  143. 1050 [131] 1,11,8,2,1,11,7,5,1,10,9,6,1,10,8,6,1,9,8,4,1,9,7,5,2,8,3,1
  144. 1060 [131] -1,0,0,0
  145. 1099 [143] twinkle star harmonized
  146. 1100 [153]"load(NULL)left$right$(NULL) right$(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL)val (NULL)(NULL)atn(NULL) left$atn(NULL)(NULL)(NULL)(NULL)right$(NULL)valstr$ !"
  147. 1105 [153]"((NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to end early.)"
  148. 1110 [141]2000
  149. 1120 rl[178]1000:[141]11000
  150. 1130 [129]i[178]1[164]172
  151. 1140 [139] d[178][171]1[167]1160
  152. 1150 [151]si[170]4,16:[151]si[170]11,16:[151]si[170]18,16:[141]1200:[141]1260
  153. 1152 [161]k$:[139]k$[178]" "[167]1160
  154. 1155 [130]
  155. 1160 d[178]0:[141]2000:[153]:[153]"str$o you wish to hear it again? (y/n) ";
  156. 1162 [141]3900
  157. 1164 [139]k$[178]"n"[167][153]k$:de[178].5:[141]7000:d[178]0:[141]8000:[137]80
  158. 1166 [153]k$:de[178].5:[141]7000:d[178]0:[137]1100
  159. 1199 [143] read twinkle star data
  160. 1200 [135] d,r1,r2,r3
  161. 1210 [142]
  162. 1219 [143] rem poke twinkle data for melody
  163. 1220 p1[178]lm(r1):p2[178]hm(r1)
  164. 1230 [151]si,p1:[151]si[170]1,p2
  165. 1235 [151]si[170]4,17
  166. 1240 de[178].45[172]d:[141]7000
  167. 1250 [142]
  168. 1259 [143] rem poke twinkle data for harmony
  169. 1260 p1[178]lm(r1):p2[178]hm(r1):p3[178]lm(r2):p4[178]hm(r2):p5[178]lm(r3):p6[178]hm(r3)
  170. 1265 [151]si,p1:[151]si[170]1,p2
  171. 1270 [151]si[170]7,p3:[151]si[170]8,p4
  172. 1280 [151]si[170]14,p5:[151]si[170]15,p6
  173. 1290 [151]si[170]4,17:[151]si[170]11,17:[151]si[170]18,17
  174. 1295 de[178].37[172]d:[141]7000
  175. 1296 [142]
  176. 1299 [143] own equal temperament
  177. 1300 [153]"load(NULL)his function allows you to define your own equal temperament scale."
  178. 1301 [153]"(NULL)he octave will be equally divided into the number of segments you ";
  179. 1302 [153]"specify. (NULL)ou may define segments from 1 to 1200 (12  is a 'normal' ";
  180. 1303 [153]"chromatic scale, 1200 is atuner's 'cents' scale).":[153]
  181. 1304 [153]"(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)> after entering the       desired ";
  182. 1305 [153]"number of segments below.":[153]
  183. 1306 [133]"(NULL)umber of segments ";ei
  184. 1307 [139]ei[179]1[176]ei[177]1200[167][153]"";:[137]1306
  185. 1309 [153]"(NULL)ress <(NULL)(NULL)atnlenval peekatn(NULL)> to end this section. ":[153]
  186. 1350 [141]2000
  187. 1355 pp[178]261.626:[143] actual hz frequency value for c
  188. 1360 cr[178]2[174](1[173]ei):[143] multiplying factor for segments
  189. 1370 cn[178].06097:[143] commodore frequency conversion
  190. 1380 bf[178][181](pp[173]cn)
  191. 1390 hi%[178]bf[173]256:li%[178]bf[171]256[172]hi%
  192. 1395 [153]" 0 ";
  193. 1400 [151]si[170]7,li%:[151]si[170]8,hi%
  194. 1405 de[178]1:[141]7000
  195. 1410 [151]si[170]11,17
  196. 1430 i[178]0
  197. 1440 af[178][188](pp)[170][188](cr)[172](i[170]1):bf[178][189](af):cf[178][181](bf[173]cn)
  198. 1445 [139]cf[177]61176[167][141]8000:[137]80
  199. 1450 hj%[178]cf[173]256:lj%[178]cf[171]256[172]hj%
  200. 1460 [153] i[170]1;" ";
  201. 1470 [151]si,lj%:[151]si[170]1,hj%
  202. 1480 [151]si[170]4,17
  203. 1490 de[178]1:[141]7000
  204. 1500 [161]k$
  205. 1510 [139]k$[178]" "[167][141]8000:[137]80
  206. 1530 i[178]i[170]1
  207. 1540 [137]1440
  208. 1999 [143] initialize sid chip
  209. 2000 [129]si[178]54272[164]54296:[151]si,0:[130]
  210. 2010 si[178]54272:[151]si[170]24,15:[143] loudness
  211. 2012 [151]si[170]5,0:[151]si[170]6,128:[143] adsr-1
  212. 2013 [151]si[170]12,0:[151]si[170]13,128:[143] adsr-2
  213. 2014 [151]si[170]19,0:[151]si[170]20,128:[143] adsr-3
  214. 2015 [151]si[170]4,17:[151]si[170]11,17:[151]si[170]18,17
  215. 2016 [142]
  216. 3899 [143] flashing get routine
  217. 3900 [151]198,0:[151]204,0:[151]207,0:[146]198,1:[151]204,1:[161]k$:[139]k$[179][177]"y"[175]k$[179][177]"n"[167]3900
  218. 3902 [142]
  219. 4999 [143] set up temperament arrays
  220. 5000 sf[178]2145:[143] starting commodore frequency for c below middle c
  221. 5050 k[178]1
  222. 5060 j[178]1
  223. 5070 [141]5599
  224. 5080 [129]i[178]1[164]23
  225. 5090 [135] ic
  226. 5100 h1%[178]sf[172](1[170]ic)[173]256:l1%[178](sf[172](1[170]ic))[171]256[172]h1%
  227. 5110 [145] j [141]5170,5190,5210,5230
  228. 5120 [130]
  229. 5130 [139]j[178]4[167]5250
  230. 5140 j[178]j[170]1
  231. 5150 [139]k[178]1[167]5080
  232. 5160 [139]k[178]2[167]5280
  233. 5170 eh(i)[178]h1%:el(i)[178]l1%
  234. 5180 [142]
  235. 5190 ph(i)[178]h1%:pl(i)[178]l1%
  236. 5200 [142]
  237. 5210 jh(i)[178]h1%:jl(i)[178]l1%
  238. 5220 [142]
  239. 5230 mh(i)[178]h1%:ml(i)[178]l1%
  240. 5240 [142]
  241. 5250 [139]k[178]2[167]5320
  242. 5260 [141]5599
  243. 5270 j[178]1:k[178]2
  244. 5280 [129]i[178]24[164]46
  245. 5290 [135] ic
  246. 5300 h1%[178]sf[172]2[172](1[170]ic)[173]256:l1%[178](sf[172]2[172](1[170]ic))[171]256[172]h1%
  247. 5310 [137]5110
  248. 5320 [142]
  249. 5329 [143] scale values
  250. 5330 rl[178]5340:[141]11000:[137]5570
  251. 5340 [131] 1,4,7,10,13,16,19,24,27,30,33,36,39,42,45
  252. 5350 rl[178]5360:[141]11000:[137]5570
  253. 5360 [131] 1,4,6,10,13,15,19,24,27,29,33,36,38,42,45
  254. 5370 rl[178]5380:[141]11000:[137]5570
  255. 5380 [131] 1,4,6,10,13,16,18,24,27,29,33,36,39,41,45
  256. 5390 rl[178]5400:[141]11000:[137]5570
  257. 5400 [131] 1,3,6,10,13,15,18,24,26,29,33,36,38,41,45
  258. 5410 rl[178]5420:[141]11000:[137]5570
  259. 5420 [131] 1,4,7,12,13,16,19,24,27,30,35,36,39,42,45
  260. 5430 rl[178]5440:[141]11000:[137]5570
  261. 5440 [131] 1,4,7,10,13,16,18,24,27,30,33,36,39,41,45
  262. 5450 rl[178]5460:[141]11000:[137]5570
  263. 5460 [131] 1,4,6,10,13,15,18,24,27,29,33,36,38,41,45
  264. 5470 rl[178]5480:[141]11000:[137]5570
  265. 5480 [131] 1,3,6,10,12,15,18,24,26,29,33,35,38,41,45
  266. 5490 rl[178]5500:[141]11000:[137]5580
  267. 5500 [131] 24,26,27,29,30,33,35,36,38,39,41,42,45
  268. 5510 rl[178]5520:[141]11000:[137]5580
  269. 5520 [131] 24,25,27,28,30,33,34,36,37,39,40,42,45
  270. 5529 [143] arrays for scale values
  271. 5530 hm(i)[178]eh(mi):lm(i)[178]el(mi):[142]
  272. 5540 hm(i)[178]ph(mi):lm(i)[178]pl(mi):[142]
  273. 5550 hm(i)[178]jh(mi):lm(i)[178]jl(mi):[142]
  274. 5560 hm(i)[178]mh(mi):lm(i)[178]ml(mi):[142]
  275. 5569 [143] read scale values
  276. 5570 no[178]8:[129]i[178]1[164]15:[135]mi:[145]tu[141]5530,5540,5550,5560:[130]:[142]
  277. 5580 no[178]13:[129]i[178]8[164]20:[135]mi:[145]tu[141]5530,5540,5550,5560:[130]:[142]
  278. 5598 [143] temperament ratios
  279. 5599 rl[178]5600:[141]11000:[142]
  280. 5600 [131] 0,.05946,.05946,.12246,.1892,.1892,.2599,.3348,.2599,.3348,.4142
  281. 5610 [131] .4142,.4983,.5874,.5874,.6818,.7818,.7818,.8877,1,.8777,1,1
  282. 5620 [131] 0,.0679,.0535,.125,.2014,.1851,.2656,.3515,.2485,.3333,.4238
  283. 5630 [131] .4046,.5,.6017,.5802,.6875,.8021,.7777,.8984,1.0136,.8728,1,1
  284. 5640 [131] 0,.0417,.0667,.125,.1718,.2,.25,.3020,.28,.3333,.4062
  285. 5650 [131] .4400,.5,.5625,.6,.6667,.7578,.8,.875,.9531,.92,1,1
  286. 5660 [131] 0,.0449,.07,.118,.1682,.1963,.25,.3062,.28,.3375,.3975
  287. 5670 [131] .4311,.49535,.5625,.6,.6718,.747,.7889,.8691,.9531,.914,1,1
  288. 5999 [143] read ascii for real time
  289. 6000 rl[178]6020:[141] 11000
  290. 6010 [129]i[178]0[164]7:[135] as:as(i)[178]as:[130]:[142]
  291. 6020 [131] 49,50,51,52,53,54,55,56
  292. 6999 [143] timing loop
  293. 7000 ti$[178]"000000"
  294. 7010 [139]ti[173]60[179]de[167]7010
  295. 7020 [142]
  296. 7999 [143] clear sid chip
  297. 8000 [129]si[178]54272[164]54296:[151]si,0:[130]
  298. 8010 [142]
  299. 10999 [143] restore to specific line routine
  300. 11000 [151]785,232:[151]786,7:[151]209,232:[151]210,7:[151]211,0:[151]213,39
  301. 11010 [153]" s&$wait(NULL)hdwaitatn$waitclosedwaitpeekclose"
  302. 11011 [151]rl,[194](rl):rl[178][183](rl):[142]
  303. 60000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  304. 60010 [139]er[179][177]63[167][128]
  305. 60020 [147]"hello connect",8
  306. 60100 [151]53280, 2:[151]53281, 0:[153]"loadreturn";
  307. 60101 [153]"loadstarpresents:"
  308. 60102 [153]"or{$60}={$60}^"
  309. 60103 [153]"{$7d}{$7d}{$7d}or{$60}{$60}Ior{$60}{$60}I"
  310. 60104 [153]"poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$7d}poke{$60}{$7d}poke{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}or{$60}Ipoke{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}or{$60}Ipoke{$60}{$7d}";
  311. 60105 [153]"poke{$60}{$60}{$60}{$7d}poke{$60}-{$60}{$60}Kpoke{$60}{$7d}poke{$60}{$60}{$60}-{$60}{$60}Kpoke{$60}{$60}{$60}{$60}{$60}or{$60}{$60}Ipoke{$60}{$60}U{$60}={$60}Ipoke{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$7d}poke{$60}{$60}{$60}{$60}";
  312. 60106 [153]"-<poke{$60}{$60}{$7d}poke{$60}Mpoke{$60}{$60}or{$60}Ipoke{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}-<poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}Mpoke{$60}";
  313. 60107 [153]"{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}/{$60}Kpoke{$60}{$60}{$60}{$60}{$60}{$60}-<poke{$60}{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}{$7d}";
  314. 60108 [153]"/{$60}K{$7d}/{$60}{$60}K"
  315. 60109 [153]"poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}or{$60}{$60}{$60}Ipoke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}/{$60}Kpoke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  316. 60110 [153]"{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}-{$60}{$60}<poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$7d}Mpoke{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
  317. 60111 [153]"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}Mpoke{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$7d}";
  318. 60112 [153]"poke{$60}{$60}{$60}{$7d}poke{$60}{$60}{$7d}poke{$60}{$60}M{$7d}poke{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$7d}{$7d}{$7d}{$7d}"
  319. 60113 [153]"J{$60}{$60}{$60}K"
  320. 60114 [153]"pokebypaul r. machula"
  321. 60115 [153]"copyright1988"
  322. 60116 [153]"pressspacetocontinue"
  323. 60120 [139][194](203)[179][177]60[167]60120
  324. 60130 [142]
  325.